Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ssqcst.cst/00023_Script_Play opening media scripts

Text File | 1998-09-28 | 2KB | 46 lines

-- plays the provideo followed by the intro soundtrack
global gClipOut, gOpning,gXCast,gbuttonstate

on playopening
  puppetsound 0
  puppetsprite 48, 1
  set the type of sprite 48 = 16
  set theone = (the number of member "PM" of castlib gXcast)+1
  set the membernum of sprite 48 =theone
  set mybutton = 25
  set the membernum of sprite mybutton = the membernum of sprite mybutton +1
  setat(gbuttonState, mybutton,2)
  set the blend of sprite 25 = 100
  set the ink of sprite 48 = 32
  set the locv of sprite 48 = 104
  set the loch of sprite 48 = 148
  set the visible of sprite 48 =1
  clearIconStatus
  set  gClipOut = the duration of member  theone -30 -- sets the end point for the script videoplayer
  updatestage
  set the movietime of sprite 48 = 0
  ControlOn
  set gOpning ="PS_PM"
  setvideovolume
  set the movierate of sprite 48 = 1
end

-- controls the playback of the intro sequence
-- when the user touches any button they reset gOpning to Empty
--- thus making th script inactive
on Opening
  if gOpning = Empty then exit
  if the movierate of sprite 48 = 0 then
    set theone = (the number of member "Protitle")+1
    set s = (the number of member "JRtitle" of castlib gXCast)+1
    if s = Empty then exit
    set theone = the name of member s of castlib gXCast
    puppetsound theone --- put name of intro sound file here
    setat(gbuttonstate,20,2)
    set the membernum of sprite 20 =the membernum of sprite 20 +1
    set the blend of sprite 20 = 100
    updatestage
    set gOpning = EMPTY
  end if
end